home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 August: Tool Chest / Dev.CD Aug 94.toast / Tool Chest / Development Platforms / Macintosh Common Lisp Related / interfaces / PInterface Translator / patches / quickdraw.patch < prev    next >
Encoding:
Text File  |  1993-09-16  |  1.8 KB  |  64 lines  |  [TEXT/CCL2]
  1. (defrecord GrafPort 
  2.    (device :signed-integer)
  3.    (portBits :bitmap)
  4.    (portRect :rect)
  5.    (visRgn (:handle region))
  6.    (clipRgn (:handle region))
  7.    (bkPat :pattern)
  8.    (fillPat :pattern)
  9.    (pnLoc :point)
  10.    (pnSize :point)
  11.    (pnMode :signed-integer)
  12.    (pnPat :pattern)
  13.    (pnVis :signed-integer)
  14.    (txFont :signed-integer)
  15.    (filler1 :signed-byte)
  16.    (txFace :unsigned-byte); txFace is unpacked byte but push as short
  17.    (txMode :signed-integer)
  18.    (txSize :signed-integer)
  19.    (spExtra :signed-long)
  20.    (fgColor :signed-long)
  21.    (bkColor :signed-long)
  22.    (colrBit :signed-integer)
  23.    (patStretch :signed-integer)
  24.    (picSave :handle)
  25.    (rgnSave :handle)
  26.    (polySave :handle)
  27.    (grafProcs (:pointer qdprocs))
  28.    )
  29.  
  30. (defrecord CGrafPort 
  31.    (device :signed-integer)
  32.    (portPixMap (:handle pixmap)); port's pixel map
  33.    (portVersion :signed-integer); high 2 bits always set
  34.    (grafVars :handle)           ; Handle to more fields
  35.    (chExtra :signed-integer)    ; character extra
  36.    (pnLocHFrac :signed-integer) ; pen fraction
  37.    (portRect :rect)
  38.    (visRgn (:handle region))
  39.    (clipRgn (:handle region))
  40.    (bkPixPat (:handle pixpat))  ; background pattern
  41.    (rgbFgColor :rgbcolor)       ; RGB components of fg
  42.    (rgbBkColor :rgbcolor)       ; RGB components of bk
  43.    (pnLoc :point)
  44.    (pnSize :point)
  45.    (pnMode :signed-integer)
  46.    (pnPixPat (:handle pixpat))  ; pen's pattern
  47.    (fillPixPat (:handle pixpat)); fill pattern
  48.    (pnVis :signed-integer)
  49.    (txFont :signed-integer)
  50.    
  51.    (filler1 :signed-byte)
  52.    (txFace :unsigned-byte); txFace is unpacked byte  push as short
  53.    (txMode :signed-integer)
  54.    (txSize :signed-integer)
  55.    (spExtra :signed-long)
  56.    (fgColor :signed-long)
  57.    (bkColor :signed-long)
  58.    (colrBit :signed-integer)
  59.    (patStretch :signed-integer)
  60.    (picSave :handle)
  61.    (rgnSave :handle)
  62.    (polySave :handle)
  63.    (grafProcs (:pointer cqdprocs))
  64.    )